home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / DB_CLIPP / 0264.ZIP / CHKBK.ARC / CHKBOOK.PRG < prev    next >
Text File  |  1985-07-25  |  1KB  |  49 lines
  1. set safety off
  2. set talk off
  3. set bell off
  4. set escape off
  5. set procedure to subroute
  6. set color to 2/1,6+/4,1
  7. restore from data
  8. clear
  9. do while .t.
  10.         close form
  11.     store 0 to ans
  12.     do box1
  13.     set color to 7+/1,6+/4,1
  14.     @4,30 say "Electronic Checkbook"
  15.     set color to 2/1,6+/4,1
  16.     @5,(80-len(acctname))/2 say acctname
  17.     @6,(80-len(acctnum))/2 say acctnum
  18.     @9,25 say "1)  Enter deposits"
  19.     @11,25 say "2)  Enter checks"
  20.     @13,25 say "3)  Reconcile statement"
  21.     @15,25 say "4)  Print summary reports"
  22.     @17,25 say "5)  Quit"
  23.     @19,25 say "Enter your selection... " get ans picture "#"
  24.     read
  25.     do case
  26.         case ans=1
  27.             do depsit
  28.             clear
  29.         case ans=2
  30.             do checkreg
  31.             clear
  32.         case ans=3
  33.             do statemnt
  34.             clear
  35.         case ans=4
  36.             do print
  37.             clear
  38.         case ans=5
  39.             release ans,flag
  40.             save to data
  41.             clear
  42.             clear all
  43.             return
  44.         otherwise
  45.             clear
  46.             loop
  47.     endcase
  48. enddo
  49.